## All items per battery
nfa_items <- c("touch.my.feelings",
              "explore.feelings",
              "emotions.overwhelming",
              "handle.emotions",
              "emotional.person",
              "know.others.feelings",
              "emotions.help",
              "emotions.beneficial",
              "need.emotions.regularly",
              "approach.emotions",
              "need.cry",
              "dwell.emotions",
              "indulge.emotions",
              "decorating.bedroom",
              "promotes.survival",
              "emotions.dangerous",
              "not.experience",
              "reflect.past",
              "mr.spock",
              "trouble.love",
              "emotions.embarassing",
              "acting.mistake",
              "sometimes.afraid",
              "avoiding.helps.sleep",
              "feel.less",
              "people.tell")

nfc_items <- c("responsibility.thinking",
              "prefer.complex",
              "thinking.not.fun",
              "rahter.little.thought",
              "anticipate.avoid",
              "deliberating.satisfaction",
              "enjoy.new.solutions",
              "learning.doesn.t.excite",
              "life.puzzles",
              "thinking.abstractly",
              "prefer.intellectual",
              "feel.relief",
              "deliberate.ssues",
              "job.done",
              "think.as.hard",
              "prefer.daily",
              "little.thought",
              "rely.thought")

nte_items <- c("opinion.everything",
              "many.opinions",
              "prefer.neutral",
              "prefer.avoid",
              "strong.opinions",
              "exactly.good",
              "no.affect",
              "enjoy.liking",
              "many.no.preference",
              "neutral.bothers",
              "like.opinions",
              "rahter.strong",
              "lotta.attention",
              "only.strong",
              "ima.decider",
              "indifferent.important")

dom_items <- c("stay.in.place",
              "good.top.bottom",
              "keept.in.place",
              "inferior",
              "use.force",
              "ok.chance",
              "step.on",
              "inferior.stay")

rwa_items <- c("no.one.way",
              "need.free.thinkers",
              "honor.forefathers",
              "strong.leader",
              "old.fashioned.best",
              "need.leader",
              "gays.lesbians",
              "trust.authority.judgement",
              "athiest.virtue",
              "get.back.to.tradition",
              "nudist.camps",
              "perversions.eating",
              "should.have.preferneces",
              "admire.protesters",
              "challenge.government",
              "gods.law",
              "censor.best",
              "premarital.sex",
              "praise.gays",
              "troublemakers.shut.up",
              "many.radical",
              "pay.less.attention.bible",
              "need.discipline.most",
              "trashy.magazines",
              "crack.down.harder",
              "rules.are.customs",
              "stronger.methods",
              "womands.place",
              "freedom.wonderful",
              "go.ahead")

## Fixed items per battery
nfa_fixed_items <- c("touch.my.feelings",
                     "explore.feelings",
                     "emotions.overwhelming",
                     "handle.emotions")

nfc_fixed_items <- c("responsibility.thinking",
                     "prefer.complex")

nte_fixed_items <- c("opinion.everything",
                     "many.opinions",
                     "prefer.neutral")

dom_fixed_items <- c("stay.in.place",
                     "good.top.bottom")

rwa_fixed_items <- c("no.one.way",
                     "need.free.thinkers",
                     "honor.forefathers", 
                     "strong.leader",
                     "old.fashioned.best")